home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 January
/
CHIP Turkiye Ocak 1998.iso
/
ARACLAR
/
TF95140
/
TEKFCT95.EXE
/
0
/
RCDATA
/
TPDMAIN
/
TPDMAIN.txt
Wrap
Text File
|
1997-07-12
|
17KB
|
579 lines
object pdMain: TpdMain
Left = 203
Top = 150
BorderStyle = bsDialog
Caption = 'NetCheck 1.0 '
ClientHeight = 341
ClientWidth = 540
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 540
Height = 341
Align = alClient
BevelOuter = bvNone
BorderWidth = 5
ParentColor = True
TabOrder = 0
object PageControl1: TPageControl
Left = 5
Top = 5
Width = 530
Height = 331
ActivePage = tsEcho
Align = alClient
TabOrder = 0
TabWidth = 100
object tsPing: TTabSheet
Caption = 'Ping'
object gbPingProgBar: TGroupBox
Left = 0
Top = 234
Width = 522
Height = 35
Align = alBottom
Caption = 'Progress'
TabOrder = 0
object pbPing: TProgressBar
Left = 2
Top = 15
Width = 518
Height = 18
Align = alClient
Min = 0
Max = 100
TabOrder = 0
end
end
object gbPingHost: TGroupBox
Left = 0
Top = 0
Width = 185
Height = 40
Caption = 'Host'
TabOrder = 1
object edPingHost: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
Text = '200.200.30.2'
end
end
object gbPingMsg: TGroupBox
Left = 192
Top = 0
Width = 330
Height = 234
Align = alRight
Caption = 'Messages'
TabOrder = 2
object memPingMsg: TMemo
Left = 2
Top = 15
Width = 326
Height = 217
Align = alClient
Lines.Strings = (
'memPingMsg')
ScrollBars = ssBoth
TabOrder = 0
end
end
object bbtnPing: TBitBtn
Left = 2
Top = 164
Width = 75
Height = 25
Caption = 'Ping'
Default = True
ModalResult = 1
TabOrder = 3
OnClick = bbtnPingClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
end
object gbPingHostName: TGroupBox
Left = 0
Top = 40
Width = 185
Height = 40
Caption = 'Host name'
TabOrder = 4
object edPingHostName: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
end
end
object gbPingIPAddress: TGroupBox
Left = 0
Top = 80
Width = 185
Height = 40
Caption = 'IP address'
TabOrder = 5
object edPingIPAddress: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
end
end
object rgPingMode: TRadioGroup
Left = 88
Top = 128
Width = 97
Height = 105
Caption = 'Mode'
ItemIndex = 0
Items.Strings = (
'Blocking'
'Non blocking')
TabOrder = 6
OnClick = rgPingModeClick
end
end
object tsEcho: TTabSheet
Caption = 'Echo'
object gbEchoMsg: TGroupBox
Left = 192
Top = 0
Width = 330
Height = 161
Caption = 'Messages'
TabOrder = 0
object memEchoMsg: TMemo
Left = 2
Top = 15
Width = 326
Height = 144
Align = alClient
Lines.Strings = (
'memEchoMsg')
ScrollBars = ssBoth
TabOrder = 0
end
end
object gbEchoHost: TGroupBox
Left = 0
Top = 0
Width = 185
Height = 41
Caption = 'Host'
TabOrder = 1
object edEchoHost: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
Text = '200.200.30.2'
end
end
object bbtnEcho: TBitBtn
Left = 2
Top = 175
Width = 75
Height = 25
Caption = 'Echo'
TabOrder = 2
OnClick = bbtnEchoClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F3333333000333393333333377733337330000}
NumGlyphs = 2
end
object gbEchoHostName: TGroupBox
Left = 0
Top = 40
Width = 185
Height = 40
Caption = 'Host name'
TabOrder = 3
object edEchoHostName: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
end
end
object gbEchoIPAddress: TGroupBox
Left = 0
Top = 80
Width = 185
Height = 40
Caption = 'IP address'
TabOrder = 4
object edEchoIPAddress: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
end
end
object bbtnStop: TBitBtn
Left = 2
Top = 232
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 5
OnClick = bbtnStopClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
993337777F777F3377F3393999707333993337F77737333337FF993399933333
399377F3777FF333377F993339903333399377F33737FF33377F993333707333
399377F333377FF3377F993333101933399377F333777FFF377F993333000993
399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
99333773FF777F777733339993707339933333773FF7FFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object gbInterval: TGroupBox
Left = 309
Top = 168
Width = 97
Height = 49
Caption = 'Interval (secs)'
TabOrder = 6
object udInterval: TUpDown
Left = 64
Top = 16
Width = 12
Height = 21
Associate = edInterval
Min = 0
Max = 999
Position = 1
TabOrder = 0
Wrap = False
end
object edInterval: TEdit
Left = 24
Top = 16
Width = 40
Height = 21
TabOrder = 1
Text = '1'
end
end
object gbPort: TGroupBox
Left = 192
Top = 168
Width = 97
Height = 49
Caption = 'Port number'
TabOrder = 7
object edPortNo: TEdit
Left = 24
Top = 16
Width = 40
Height = 21
TabOrder = 0
Text = '1'
end
object udPortNo: TUpDown
Left = 64
Top = 16
Width = 12
Height = 21
Associate = edPortNo
Min = 0
Max = 5000
Position = 1
TabOrder = 1
Wrap = False
end
end
object gbEchoNo: TGroupBox
Left = 424
Top = 168
Width = 97
Height = 49
Caption = 'No of echoes'
TabOrder = 8
object udEchoNo: TUpDown
Left = 64
Top = 16
Width = 12
Height = 21
Associate = edEchoNo
Min = 0
Max = 999
Position = 0
TabOrder = 0
Wrap = False
end
object edEchoNo: TEdit
Left = 24
Top = 16
Width = 40
Height = 21
TabOrder = 1
Text = '0'
end
end
object gbTestMsg: TGroupBox
Left = 88
Top = 224
Width = 433
Height = 41
Caption = 'Test message'
TabOrder = 9
object edEchoTestMsg: TEdit
Left = 8
Top = 16
Width = 417
Height = 21
TabOrder = 0
Text = 'Hello there!'
end
end
end
object tabTrace: TTabSheet
Caption = 'Trace'
object gbTraceMsg: TGroupBox
Left = 192
Top = 0
Width = 330
Height = 268
Align = alRight
Caption = 'Messages'
TabOrder = 0
object memTraceMsg: TMemo
Left = 2
Top = 15
Width = 326
Height = 251
Align = alClient
Lines.Strings = (
'memTraceMsg')
ScrollBars = ssBoth
TabOrder = 0
end
end
object gbTraceProgBar: TGroupBox
Left = 0
Top = 268
Width = 522
Height = 35
Align = alBottom
TabOrder = 1
object pbTrace: TProgressBar
Left = 2
Top = 15
Width = 518
Height = 18
Align = alClient
Min = 0
Max = 100
TabOrder = 0
end
end
object bbtnTrace: TBitBtn
Left = 2
Top = 164
Width = 75
Height = 25
Caption = 'Trace'
TabOrder = 2
OnClick = bbtnTraceClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
033333777777777773333330777777703333333773F333773333333330888033
33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000}
NumGlyphs = 2
end
object gbTraceHost: TGroupBox
Left = 0
Top = 0
Width = 185
Height = 40
Caption = 'Host'
TabOrder = 3
object edTraceHost: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
Text = '200.200.30.2'
end
end
object gbTraceHostName: TGroupBox
Left = 0
Top = 40
Width = 185
Height = 40
Caption = 'Host name'
TabOrder = 4
object edTraceHostName: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
end
end
object gbTraceIPAddress: TGroupBox
Left = 0
Top = 80
Width = 185
Height = 40
Caption = 'IP address'
TabOrder = 5
object edTraceIPAddress: TEdit
Left = 8
Top = 16
Width = 169
Height = 21
TabOrder = 0
end
end
object bbtnAbort: TBitBtn
Left = 2
Top = 208
Width = 75
Height = 25
TabOrder = 6
OnClick = bbtnAbortClick
Kind = bkAbort
end
object rgTraceMode: TRadioGroup
Left = 88
Top = 128
Width = 97
Height = 105
Caption = 'Mode'
ItemIndex = 0
Items.Strings = (
'Blocking'
'Non blocking')
TabOrder = 7
OnClick = rgPingModeClick
end
end
end
end
object Panel2: TPanel
Left = 0
Top = 307
Width = 345
Height = 34
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object bbtnExit: TBitBtn
Left = 460
Top = 0
Width = 75
Height = 25
Caption = 'Exit'
Default = True
ModalResult = 1
TabOrder = 0
OnClick = bbtnExitClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F33330000000000033333777777777773330000}
NumGlyphs = 2
end
object bbtnHelp: TBitBtn
Left = 5
Top = 0
Width = 75
Height = 25
Caption = 'About'
TabOrder = 1
OnClick = bbtnHelpClick
Kind = bkHelp
end
end
object Sonar1: TSonar
Mode = NonBlocking
HostName = '200.200.30.2'
OnRecvData = Sonar1RecvData
OnResolveData = Sonar1ResolveData
OnProgress = Sonar1Progress
Left = 257
Top = 61
end
object Trace1: TTrace
Mode = NonBlocking
OnRecvData = Trace1RecvData
OnResolveData = Trace1ResolveData
OnProgress = Trace1Progress
Left = 257
Top = 133
end
object EchoC1: TEchoC
Interval = 5
OnRecv = EchoC1Recv
OnNewData = EchoC1NewData
OnDone = EchoC1Done
Left = 257
Top = 93
end
end
